home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / complib / CORTH.z / CORTH
Encoding:
Text File  |  1998-10-30  |  3.4 KB  |  67 lines
  1.  
  2.  
  3.  
  4. ____CCCCOOOORRRRTTTTHHHH((((3333FFFF))))                                                          ____CCCCOOOORRRRTTTTHHHH((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CORTH, SCORTH   -  EISPACK routine.  Given a COMPLEX GENERAL matrix, this
  10.      subroutine reduces a submatrix situated in rows and columns LOW through
  11.      IGH to upper Hessenberg form by unitary similarity transformations.
  12.  
  13.  
  14. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  15.           ssssuuuubbbbrrrroooouuuuttttiiiinnnneeee  ccccoooorrrrtttthhhh((((nnnnmmmm,,,, nnnn,,,, lllloooowwww,,,, iiiigggghhhh,,,, aaaarrrr,,,, aaaaiiii,,,, oooorrrrttttrrrr,,,, oooorrrrttttiiii))))
  16.           iiiinnnntttteeeeggggeeeerrrr          nnnnmmmm,,,, nnnn,,,, lllloooowwww,,,, iiiigggghhhh
  17.           ddddoooouuuubbbblllleeee pppprrrreeeecccciiiissssiiiioooonnnn aaaarrrr((((nnnnmmmm,,,,nnnn)))),,,, aaaaiiii((((nnnnmmmm,,,,nnnn)))),,,, oooorrrrttttrrrr((((iiiigggghhhh)))),,,, oooorrrrttttiiii((((iiiigggghhhh))))
  18.  
  19.           ssssuuuubbbbrrrroooouuuuttttiiiinnnneeee ssssccccoooorrrrtttthhhh((((nnnnmmmm,,,, nnnn,,,, lllloooowwww,,,, iiiigggghhhh,,,, aaaarrrr,,,, aaaaiiii,,,, oooorrrrttttrrrr,,,, oooorrrrttttiiii))))
  20.           iiiinnnntttteeeeggggeeeerrrr          nnnnmmmm,,,, nnnn,,,, lllloooowwww,,,, iiiigggghhhh
  21.           rrrreeeeaaaallll             aaaarrrr((((nnnnmmmm,,,,nnnn)))),,,, aaaaiiii((((nnnnmmmm,,,,nnnn)))),,,, oooorrrrttttrrrr((((iiiigggghhhh)))),,,, oooorrrrttttiiii((((iiiigggghhhh))))
  22.  
  23.  
  24.  
  25. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  26.      On INPUT
  27.  
  28.      NNNNMMMM must be set to the row dimension of two-dimensional array parameters
  29.      as declared in the calling program dimension statement.
  30.  
  31.      NNNN is the order of the matrix.
  32.  
  33.      LLLLOOOOWWWW and IGH are integers determined by the balancing subroutine  CBAL.
  34.      If  CBAL  has not been used, set LOW=1, IGH=N.
  35.  
  36.      AAAARRRR and AI contain the real and imaginary parts, respectively, of the
  37.      complex input matrix.  On OUTPUT
  38.  
  39.      AAAARRRR and AI contain the real and imaginary parts, respectively, of the
  40.      Hessenberg matrix.  Information about the unitary transformations used in
  41.      the reduction is stored in the remaining triangles under the Hessenberg
  42.      matrix.
  43.  
  44.      OOOORRRRTTTTRRRR and ORTI contain further information about the transformations.
  45.      Only elements LOW through IGH are used.  Calls PYTHAG(A,B) for sqrt(A**2
  46.      + B**2).  Questions and comments should be directed to B. S. Garbow,
  47.      APPLIED MATHEMATICS DIVISION, ARGONNE NATIONAL LABORATORY
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.